home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh45a.d64
/
listing 11
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
485b
|
13 lines
10 PRINTCHR$(147) :REM BILDSCHIRM LOESCHEN
20 POKE 2040,13 :REM DATEN SPRITE 0 AUS BLOCK 13
30 FOR I=0 TO 62:POKE 832+I,255:NEXT:REM SPRITEDATEN EINTRAGEN
40 V=53248 :REM STARTADRESSE DES VIDEOCHIP
50 POKE V+21,1 :REM SPRITE 0 EINSCHALTEN
60 POKE V+39,1:POKE V+23,1:POKE V+29,1:REM SPRITE 0 FARBE GEBEN UND VERGROESSERN
70 POKE V+1,100 :REM SPRITE 0 Y-POSITION
80 J=488
90 HX=INT(J/256):LX=J-256*HX:IFHX<0THEN80
100 POKE V,LX:POKE V+16,HX
110 J=J-1:IF J>511 THEN J=0
120 IF J<488 OR J>348 THEN 90